home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
fly.src
< prev
next >
Wrap
Text File
|
1991-10-19
|
29KB
|
851 lines
%%HP: T(3)A(R)F(.);
@ FLY, a flight plan computer, by Eric R. Anderson
DIR
SETUP
\<<
IF 'ASC\->' VTYPE -1 ==
THEN
"ASC\-> must be in this\010 or higher directory"
DOERR
END
CURSOR ASC\-> 'CURSOR' STO
PGROB ASC\-> 'PGROB' STO
UPGROB ASC\-> 'UPGROB' STO
FPLAN.GROB ASC\-> 'FPLAN.GROB' STO
HELP.3 ASC\-> 'HELP.3' STO
HELP.2 ASC\-> 'HELP.2' STO
HELP.1 ASC\-> 'HELP.1' STO
STMENU ASC\-> 'STMENU' STO
WBMENU ASC\-> 'WBMENU' STO
MEM DROP
PLANES ASC\-> 'PLANES' STO
'SETUP' PURGE
\>>
START.
\<< RCLF DEPTH 'STRT.DPTH' STO
IFERR
1
DO
STMENU CHOOSE
{
\<<
IF 'W&B' TRAP
THEN
DUP2 CLLCD " Weight" 1 DISP
SWAP DTAG \->STR DUP "_" POS " " REPL "'" STRIP PAD 3 DISP
" Moment Arm" 5 DISP
DTAG \->STR DUP "_" POS " " REPL "'" STRIP PAD 7 DISP
{ } TMENU TEXT PAUSE
END
1 0
\>>
\<< 'FPLAN' TRAP DROP 2 0 \>>
\<<
IF 'WIND' TRAP
THEN
DUP2 CLLCD " Winds Aloft From" 1 DISP
SWAP DTAG \->STR PAD 3 DISP
" At" 5 DISP DTAG
IF DUP TYPE 13 ==
THEN \->STR "'" STRIP DUP "_" POS " " REPL
ELSE \->STR
END
PAD 7 DISP
{ } TMENU PAUSE
END
3 0
\>>
\<<
IF 'DALT' TRAP
THEN
CLLCD DUP " Density Altitude:" 4 DISP
DTAG \->STR DUP "_" POS " " REPL "'" STRIP PAD 6 DISP
{ } TMENU PAUSE
END
4 0
\>>
\<<
IF 'DISTANCE' TRAP
THEN
CLLCD DUP2 " True Heading" 5 DISP
DTAG \->STR PAD 7 DISP
" Distance" 1 DISP
DTAG \->STR DUP "_" POS " " REPL "'" STRIP PAD 3 DISP
{ } TMENU PAUSE
END
5 0
\>>
\<<
IF 'CWIND' TRAP
THEN
DUP2 CLLCD
DUP \->STR 1 " " REPL DUP ":" POS 1 - 1 SWAP SUB PAD 5 DISP
DTAG \->STR PAD 7 DISP
DUP \->STR 1 " " REPL DUP ":" POS 1 - 1 SWAP SUB " Crosswind" +
PAD 1 DISP
DTAG \->STR PAD 3 DISP
{ } TMENU PAUSE
END
6 0
\>>
{ 7 0 }
{ 8 0 }
\<< HELP 9 0 \>>
{ 1 }
}
SWAP GET EVAL
UNTIL
END
THEN
END
2 MENU CLLCD
DEPTH STRT.DPTH - DROPN
STOF 'STRT.DPTH' PURGE
\>>
HELP
\<<
IFERR
PICT { # 0d # 0d } HELP.1 UPGROB REPL
{ # 0d # 0d } PVIEW
0 WAIT DROP
PICT { # 0d # 0d } HELP.2 UPGROB REPL
0 WAIT DROP
PICT { # 0d # 0d } HELP.3 UPGROB REPL
0 WAIT DROP
THEN DROP
END
\>>
FPLAN
\<<
RCLF -15 CF -16 SF DEG STD
PICT { # 0d # 0d } FPLAN.GROB UPGROB REPL
":Course: \010:Distance: " ":Variation: " ":TAS: "
":WD: \010:WS: " ":FCR: " 1 0 0 0
\->
tcdef vardef tasdef winddef fcrdef speedunit totdist tottime totfuel
\<<
1
DO
"Enter number of legs,\010maximum 8" "" INPUT OBJ\->
IF DUP 9 < THEN 1 ELSE DROP 1400 .08 BEEP 0 END
UNTIL
END
FOR j
{ { "mi" "_mi" } { "nmi" "_nmi" } "" "" "" { "km" "_km" } } TMENU
"Leg X: Enter TRUE\010course and distance" 5 j \->STR REPL
tcdef -10 2 \->LIST INPUT
DUP 'tcdef' STO OBJ\-> DTAG SWAP DTAG SWAP
{ { "W" "_W" } "" "" "" "" { "E" "_E" } } TMENU
"Leg X: Enter Variation\010(- or W , + or E)" 5 j \->STR REPL
vardef -13 2 \->LIST INPUT
DUP 'vardef' STO OBJ\-> DTAG
{ { "mph" "_mph" } { "knot" "_knot" } "" "" "" { "kph" "_kph" } } TMENU
"Leg X: Enter True\010Airspeed" 5 j \->STR REPL
tasdef -7 2 \->LIST INPUT
DUP 'tasdef' STO OBJ\-> DTAG
IF DUP TYPE 13 == THEN DUP 'speedunit' STO UVAL END
"Leg X: Enter Wind\010Direction and Speed" 5 j \->STR REPL
winddef -6 2 \->LIST INPUT
DUP 'winddef' STO OBJ\-> DTAG
IF DUP TYPE 13 ==
THEN
IF speedunit TYPE 13 ==
THEN speedunit CONVERT UVAL
ELSE DUP 'speedunit' STO UVAL
END
END
SWAP 180 + \->V2
{ { "gph" "_Gal/h" } { "lb/h" "_lb/h" } ""
"" { "L/h" "_L/h" } { "kg/h" "_kg/h" } } TMENU
"Leg X: Enter rate of\010fuel consumption" 5 j \->STR REPL
fcrdef -7 2 \->LIST INPUT
DUP 'fcrdef' STO OBJ\->
6 ROLLD DUP 6 PICK 90 + 1 SWAP \->V2 DOT NEG 3 PICK / ASIN 6 PICK +
DUP 4 ROLL SWAP \->V2 ROT +
1 6 PICK \->V2 DOT
IF speedunit TYPE 13 == THEN speedunit \->UNIT END
SWAP ROT
IF DUP TYPE 13 ==
THEN
IF DUP \->STR "W" POS THEN NEG END UVAL
END
- 0 RND
SWAP DUP 4 PICK SWAP /
IFERR '1_h' CONVERT THEN DROP UVAL '1_h' \->UNIT END
DUP 7 ROLL * UVAL DUP 'totfuel' STO+
IF DUP 99 > THEN 0 RND \->STR ELSE 1 FIX \->STR STD END
IF DUP SIZE 4 < THEN " " SWAP + END
SWAP UVAL DUP 'tottime' STO+
\->HMS 2 FIX \->STR 2 ":" REPL STD
ROT 0 RND DUP \->STR SWAP
IF TYPE 13 == THEN "'" STRIP DUP "_" POS " " REPL END
WHILE DUP SIZE 8 < REPEAT " " SWAP + END
5 ROLL DUP 'totdist' STO+
UVAL
1 6 FOR k
PICT
{ # 46d # 60d # 97d # 114d # 30d # 16d } k GET
9 j 1 - 6 * + R\->B
2 \->LIST
ROT \->STR
IF DUP SIZE 3 < THEN " " SWAP + END
1 \->GROB REPL
NEXT
NEXT
PICT { # 42d # 59d }
totdist UVAL 0 RND \->STR
WHILE DUP SIZE 4 < REPEAT " " SWAP + END
1 \->GROB REPL
PICT { # 97d # 59d }
tottime 2 FIX \->HMS \->STR STD
2 ":" REPL 1 \->GROB REPL
PICT { # 114d # 59d }
totfuel
IF DUP 99 > THEN 0 RND ELSE 1 FIX END
\->STR
IF DUP SIZE 4 < THEN " " SWAP + END
1 \->GROB REPL
{ # 0d # 0d } PVIEW
IFERR 0 WAIT THEN END DROP
\>>
STOF 2 MENU
\>>
W&B
\<<
RCLF
IF 'PLANES' VTYPE -1 SAME THEN ADDPLANE END
DO
DO
1 WBMENU CHOOSE
PLANES SWAP GET LIST\-> 1 - SWAP DROP
UNTIL
END
DUP TYPE 5 SAME
1
\<< EVAL 0 \>>
IFTE
UNTIL
END
UNITMENU TMENU
LIST\-> \-> num
\<<
0 0
1 num FOR j
num j - 3 + ROLL WBIN
{ '1_in' '1_cm' } 10 FS? 1 + GET CONVERT UVAL SWAP
{ '1_lb' '1_kg' } 10 FS? 1 + GET CONVERT UVAL
DUP ROT * ROT + ROT ROT + SWAP
NEXT
{ '1_in*lb' '1_cm*kg' } 10 FS? 1 + GET \->UNIT
1 RND "Moment" \->TAG SWAP
{ '1_lb' '1_kg' } 10 FS? 1 + GET \->UNIT
0 RND "Weight" \->TAG SWAP
\>>
2 MENU 3 ROLL
IF DUP SIZE THEN CGGRAPH ELSE DROP END
ROT STOF
\>>
WIND
\<<
RCLF -15 CF -16 SF
{ { "MPH" "_mph" } { "KNOT" "_knot" } "" "" "" { "KPH" "_kph" } } TMENU
"Enter True Course:" "" INPUT OBJ\->
"Enter Ground Speed" "" INPUT OBJ\->
DUP UVAL ROT \->V2
"Enter True Heading" "" INPUT OBJ\->
"Enter True Airspeed" "" INPUT OBJ\->
IF DUP TYPE 13 ==
THEN
4 ROLL
IF DUP TYPE 13 == THEN CONVERT ELSE DROP END
DUP UVAL ROT
ELSE 4 ROLL SWAP ROT
END
\->V2
SWAP 3 ROLLD - NEG V\->
IF DUP 0 < THEN 360 + END
0 RND "Winds From" \->TAG
SWAP 0 RND ROT
IFERR \->UNIT THEN DROP END
"Wind Speed" \->TAG
ROT STOF 2 MENU
\>>
DALT
\<<
RCLF
{ { "ft" "_ft" } { "m" "_m" } "" ""
{ "\^oF" "_\^oF" } { "\^oC" "_\^oC" } } TMENU
DO
"Enter:"
":Air Temp.: _\^oF\010:Press. Alt.: _ft"
IF 10 FS? THEN 15 "C" REPL 32 "m " REPL END
{ 1 13 } 2 \->LIST INPUT
UNTIL
IF DUP " _" POS
THEN 1400 .08 BEEP DROP 0
ELSE
OBJ\->
IF DUP '11_km' >
THEN
1400 .08 BEEP "Alt. < "
{ "36000 ft" "11000 m" } 10 FS? 1 + GET + " only.\010 " +
1 DISP 1 WAIT DROP2 0
ELSE 1
END
END
END
'1_ft' CONVERT UVAL .0019812 * NEG 288.15 + 5.255876 ^
SWAP
'1_K' CONVERT UVAL / 4.255876 INV ^ NEG 288.15 + .0019812 /
'1_ft' \->UNIT
IF 10 FS? THEN '1_m' CONVERT END
0 RND "Den. Alt" \->TAG
2 MENU SWAP STOF
\>>
DISTANCE
\<<
RCLF DEG { } TMENU
1 2 FOR j
DO
{ "Enter Lat. (N) and\010Long. (W) of origin"
"Enter Lat. and Long.\010of destination" }
j GET { ":Lat: \010:Long: " 7 } INPUT
UNTIL
IF DUP DUP SIZE SWAP 10 CHR POS - 7 >
THEN 1
ELSE DROP 1400 .08 BEEP 0
END
END
OBJ\->
NEXT
1 4 START
4 ROLL HMS\->
NEXT
\-> lat1 long1 lat2 long2
\<<
lat1 SIN lat2 SIN * lat1 COS lat2 COS * long1 long2 - COS * + ACOS 60
*
DUP 60 / SIN INV long1 long2 - SIN * lat2 COS * ASIN
IF lat2 lat1 <
THEN 180 SWAP -
ELSE IF DUP 0 < THEN 360 + END
END
\>>
SWAP
'1_nmi' \->UNIT
IF 10 FS? THEN '1_km' CONVERT END
0 RND "Distance" \->TAG
SWAP 0 RND "True Heading" \->TAG
ROT STOF 2 MENU
\>>
CWIND
\<<
RCLF -15 CF -16 SF DEG { } TMENU
"DUMMY"
DO DROP "Enter runway heading" "" INPUT
UNTIL DUP SIZE
END
OBJ\->
"DUMMY"
DO
DROP
"Enter wind direction\010and speed"
{ ":WD: \010:WS: " 6 } INPUT
UNTIL DUP DUP SIZE SWAP 10 CHR POS - 5 >
END
OBJ\-> DTAG UVAL
SWAP DTAG 180 + \->V2
SWAP DUP 90 + 1 SWAP \->V2
3 PICK DOT 0 RND
IF DUP 0 < THEN NEG "Right" ELSE "Left" END
\->TAG
3 ROLLD 1 SWAP \->V2 DOT 0 RND
IF DUP 0 < THEN NEG "Headwind" ELSE "Tailwind" END
\->TAG ROT STOF 2 MENU
\>>
PAUSE
\<< IFERR -1 WAIT THEN END DROP \>>
TRAP
\<<
DEPTH 1 - 'S.DEPTH' STO
IFERR EVAL
THEN
DEPTH 1 - S.DEPTH - DROPN
STOF
IF ERRN # 0d \=/
THEN
1400 .08 BEEP
"Error:\010" ERRM + CLLCD 1 DISP 2 WAIT
END
0
ELSE 1
END
'S.DEPTH' PURGE
\>>
MAKEMENU
\<<
ERASE
PICT { # 0d # 8d } { # 130d # 8d } LINE
{ # 2d # 0d }
"Enter Title,\01021 char max" { \Ga } INPUT 2 \->GROB
REPL
1 10 FOR j
PICT
IF j 5 >
THEN # 70d # 10d j 5 - * # 1d +
ELSE # 2d # 10d j * # 1d +
END
2 \->LIST
DO
"Enter Item " j \->STR + "\010(10 letter max.)" +
{ \Ga } INPUT
UNTIL
IF DUP SIZE 11 < THEN 1 ELSE DROP 0 1400 .08 BEEP END
END
2 \->GROB REPL
NEXT
PICT RCL { # 0d # 0d } PVIEW
IFERR 0 WAIT THEN END DROP
\>>
ADDPLANE
\<<
DO "Add or Delete? (A/D)" { "" \Ga } INPUT
UNTIL DUP "AaDd" SWAP POS
END
\-> choice
\<<
IF 'PLANES' VTYPE -1 >
THEN PLANES
ELSE
{ "" } DUP DUP2 DUP2 DUP2 DUP { { } ADDPLANE "Add/Delete" }
10 \->LIST
END
CASE
"Aa" choice POS
THEN
DUP EVAL
11 ROLL
1 \-> n
\<<
DO
12 n - ROLL LIST\->
IF 1 SAME THEN DROP 1 ELSE 3 DROPN 'n' INCR DROP 0 END
IF n 10 SAME THEN DROP2 "All slots are full" DOERR END
UNTIL
END
n
ADDGRAPH
"Enter # of stations" "" INPUT OBJ\->
\-> l
\<<
1 l FOR j
"Enter station " j \->STR + "\010" +
\-> sta
\<<
DESCMENU TMENU
sta "Description" + "" INPUT
UNITMENU TMENU
sta "Default Weight" + "" INPUT
sta "Default Moment Arm" + "" INPUT
\>>
3 \->LIST
NEXT
l \->LIST
PLMENU TMENU
DO
"Enter plane N-number/\010 type. (10 letters max)"
"" INPUT
DUP SIZE
IF 10 \<= THEN 1 ELSE DROP 0 END
UNTIL
END
3 \->LIST
PUT
\>>
'PLANES' STO
10 n - DROPN
\>>
END
"Dd" choice POS
THEN
1
IF 'WBMENU' VTYPE -1 SAME
THEN # 131d # 64d BLANK
ELSE WBMENU UPGROB
END
{ # 2d # 0d } "Delete which aircraft" 2 \->GROB REPL
{ # 70d # 51d } "No change " 2 \->GROB REPL
IF CHOOSE DUP 10 \=/
THEN
SWAP EVAL
11 ROLL
NEG 11 + ROLL
DROP { "" } SWAP
10 \->LIST
ELSE DROP
END
'PLANES' STO
END
END
TEXT CLLCD " Updating..." 3 DISP
PLANES EVAL
# 131d # 64d BLANK
70 2 FOR x
51 11 FOR y
SWAP
LIST\-> \-> m
\<< m ROLLD m 1 - DROPN \>>
2 \->GROB
x R\->B y R\->B 2 \->LIST
SWAP GOR
-10 STEP
-68 STEP
{ # 2d # 0d } "Select Aircraft" 2 \->GROB GOR
PICT SWAP { # 0d # 0d } SWAP REPL
{ # 0d # 8d } { # 130d # 8d } LINE
PICT RCL PGROB 'WBMENU' STO
\>>
\>>
STRIP
\<<
1 \-> delchr stop
\<<
WHILE DUP delchr POS 0 \=/
REPEAT
DUP delchr POS 1 - 'stop' STO
DUP 1 stop SUB
SWAP
DUP SIZE stop 2 + SWAP SUB +
END
\>>
\>>
PAD
\<< WHILE DUP SIZE 21 < REPEAT " " + " " SWAP + END \>>
CHOOSE
\<<
PICT { # 0d # 0d } ROT
IF DUP TYPE 10 == THEN UPGROB END
REPL
{ #0d #0d } PVIEW
R\->B
DUP # 6d <
# 1d
# 69d
IFTE
SWAP 10 *
IF DUP # 50d > THEN # 50d - END
\-> x y
\<<
DO
PICT
x y 2 \->LIST
DUP 3 ROLLD CURSOR GXOR
DO
0 WAIT IP
{ 34 36 25 35 51 } SWAP POS DUP
IF THEN DUP END
UNTIL
END
{
\<< x # 68d XOR 'x' STO 0 \>>
\<< x # 68d XOR 'x' STO 0 \>>
\<<
IF y # 10d == THEN # 50d 'y' STO ELSE 'y' # 10d STO- END 0
\>>
\<<
IF y # 50d == THEN # 10d 'y' STO ELSE 'y' # 10d STO+ END 0
\>>
1 }
SWAP GET EVAL SWAP
PICT SWAP CURSOR GXOR
UNTIL
END
y B\->R 10 / x B\->R 69 / IP 5 * +
\>>
\>>
ADDGRAPH
\<<
"Enter # of points in\010c.g. graph (0 for no\010graph):"
"" INPUT OBJ\->
\-> num
\<<
IF num 0 \<=
THEN { }
ELSE
0 1000 0 1000000
\-> mmax mmin wmax wmin
\<<
DO
ERASE
1 num FOR j
"Enter point " j \->STR + " in form\010{mom/1000 weight}" +
{ "{ }" { 1 2 } } INPUT OBJ\->
DUP EVAL DUP DUP
IF wmax > THEN DUP 'wmax' STO END
IF wmin < THEN DUP 'wmin' STO END
DROP DUP DUP
IF mmax > THEN DUP 'mmax' STO END
IF mmin < THEN DUP 'mmin' STO END
DROP
NEXT
{ # 0d # 0d } PVIEW
1 num 1 - START
SWAP DUP 3 ROLL
1 2 START
SWAP EVAL wmax wmin 63 SCL # 63d SWAP -
SWAP mmax mmin 130 SCL SWAP 2 \->LIST
NEXT
LINE
NEXT
DROP
UNTIL
0 WAIT DROP
{ "YES" "" "" "" "" "NO" } TMENU
"Is the graph correct?" "" INPUT
"YES" ==
1
\<<
"Enter # of points"
"" INPUT OBJ\-> 'num'
STO 0
\>>
IFTE
END
PICT RCL PGROB mmax mmin wmax wmin 5 \->LIST
\>>
END
\>>
\>>
SCL
\<<
\-> valmax valmin factor
\<< valmin - valmax valmin - / factor * 0 RND R\->B \>>
\>>
WBIN
\<<
EVAL
\-> station defwgt defarm
\<<
DO
"Enter " station + "\010weight and moment arm:" +
":Weight: " defwgt + "\010:Mom. arm: " + defarm +
{ 1 10 } 2 \->LIST INPUT
UNTIL
IF DUP " _" POS THEN 1400 .08 BEEP DROP 0 ELSE 1 END
END
OBJ\->
\>>
\>>
CGGRAPH
\<<
IFERR
EVAL
\-> mmax mmin wmax wmin
\<<
UPGROB PICT STO
DUP2
{ '1000_in*lb' '1000_cm*kg' } 10 FS? 1 + GET
/ mmax mmin 130 SCL SWAP UVAL
IF DUP wmax \<=
THEN wmax wmin 63 SCL
ELSE DROP2 "Aircraft is overweight" DOERR
END
# 63d SWAP - 2 \->LIST
# 1d 0 360 ARC { # 0d # 0d } PVIEW
\>>
IFERR 0 WAIT THEN END DROP
CLLCD
THEN
CLLCD 1400 .08 BEEP ERRM 1 DISP 2 WAIT
END
\>>
PGROB
"D9D20ECE8176040CCD20EB1008FB976014713506174147DAF4C2818F2E8FD7B5
081AF1813581AF0A80824E4A20141818F2913507818F24134142CAD816415271
517179818F2E13481AF0813713581AF0917115201510D31701601361348B9606
6601560155090661B67AEB808A73DA6F654031409EBB3136EB134137EB13581A
F11E2808A7A9818FA27BA013313181AF01627F137135EB81AF11E2818FA28AA8
1CE7A70137135EBCE81AF0981AF1913596B01AEB8089714D1721361348B56066
1F81AF1A81AF0806133130EA34A10008A6501608F176618F2D760071458DF192
081AF1113314D13101B21300239"
UPGROB
"D9D20ECE81D5040CCD204F0008FB97601471350617414334510008A6018F2D76
08D7AC8117414381AF0117414381AF008F3B51113681AF0813507818F2413414
2CAD816E14A1611361348BD46808770431F09EAF11567155716F17F81868F31F
09E65E15601550160170A6C5EE6DAF8084715601550170A6C55F160609F81AF1
08D1FF11B2130D903"
PLANES
"47A2047A2047A20E4A20FE3000400038000390008A8F007490006A8000339010
81980008490004A80004490003A8000339000CA80008490002A800063901081A
80001390006A8000C490001A8000239000CB80001390003A8000C390008B8000
2390006A8010812901081A80004390004B80002390003A80108129000CB80004
390002B800032901081A80008390006B80004390001B8000329000CB80008390
003B8000629000848F00768000129000648000258000C2907081000081580002
29000648000468000129000148000258000C2900085800015800022900044800
0C58010812900024800025800043900014800015800022900084800085801081
2900044800045800043900024800035800033905010000858000839000848000
4580004390004480002580003390602000081480008490501000045800063900
0848000258000139000448000148000C4905020000C580002490501000025800
0139000C48000148000C49050200008580002490501000044801081390008480
0034800044905040000858000249050200004480108149050100002480004490
6080000814800034905040000448000859050200002480004590501000014800
034905080000C480008590504000024800065905020000148000159040100084
8000C5905080000448000259050400003480001590402000848000C69098F003
6903392020000000000090103392010000000000052503392030000000000003
20339203000000000000510B213047A2047A20C2A20F000054D6074797C2A203
100013336363F5C626C2A20310003393E243F596E6B213047A20C2A20B0000F4
96C6C2A20F00001353F5C626C2A2051000D21333E233F596E6B213047A20C2A2
012000645756C602155716E647964797F2C2A20D0000F57416C6C2A203100043
73E283F596E6B213047A20C2A20F00000596C6F647C2A20B0000F5C626C2A20F
00003373F596E6B213047A20C2A20320006427F6E647020516373756E6765627
C2A20B0000F5C626C2A20F00003373F596E6B213047A20C2A201200025561627
020516373756E6765627C2A20B0000F5C626C2A20F00007333F596E6B213047A
20C2A20120002416767616765602162756160213C2A20B0000F5C626C2A20F00
009353F596E6B213047A20C2A20120002416767616765602162756160223C2A2
0B0000F5C626C2A2011000132333F596E6B2130B2130C2A209100034563737E6
1602137323B213047A20C2A2050000B213047A20C2A2050000B213047A20C2A2
050000B213047A20C2A2050000B213047A20C2A2050000B213047A20C2A20500
00B213047A20C2A2050000B213047A20C2A2050000B213047A2084E208014444
405C414E454C2A2091000144646F24456C6564756B2130B21308244"
FPLAN.GROB
"E4A20EA7000400038000E0100400010040004780D74000010004011E4C9198A4
39D5000EC00047547D5D54011148409DA455840001200042D6154544011D4840
9AE45984000D400042557D5D540119484098A451549400098000425415454401
7E488198A43D84000E6000425475CDD50100400010040004780A040000100040
F9F017010040001004000478091400001000401C040001004000478091400001
0004018040001004000478091400001000401804000100400047809140000100
04018040001004000478091400001000401C1400010040004780914000010004
010040001004000478091400001000401C140001004000478091400001000401
0140001004000478091400001000401C14000100400047809140000100040140
40001004000478091400001000401C1400010040004780914000010004010040
001004000478091400001000401C140001004000478091400001000401014000
1004000478091400001000401C14000100400047809140000100040101400010
04000478091400001000401C1400010040004780914000010004010040001004
0004780914000010004014140001004000478091400001000401414000100400
0478091400001000401C14000100400047809140000100040101400010040004
7809140000100040101400010040004780914000010004010040001004000478
091400001000401C140001004000478091400001000401404000100400047809
1400001000401C14000100400047809140000100040101400010040004780914
00001000401C1400010040004780914000010004010040001004000478091400
0010004018140001004000478091400001000401404000100400047809140000
1000401C14000100400047809140000100040141400010040004780914000010
00401C1400010040004780914000010004010040001004000478091400001000
401C140001004000478091400001000401014000100400047809140000100040
1804000100400047809140000100040140400010040004780914000010004014
0400010040004780914000010004010040001004000478091400001000401C14
00010040004780914000010004014140001004000478091400001000401C1400
010040004780914000010004014140001004000478091400001000401C140001
00400047809140000100040100400010040004780A040000100040F9F5070BAA
6580401000C78A9160000100040555577721610004885810000100040BAA6252
5111000C78A9160000100040555525271210004885810000100040BAA6252514
1000C78A91600001000405555272573100048859000001000405332"
HELP.1
"E4A206950004000380001A0A11D5EAE481900542C40C42CA24EE680A11541A4A
8AA084454942A22A2A42680A15D5DE4CA9B08456D82E22A2E4E680A1B549A42
9AA08C694942A22A2A42680A11D5EA4CA9A30546D40CAECEEA4EBA0211D5EAE0
2960642429D1E80111541A405BA0AA2A654F80215D5DE407FA06E2EE5C1E8011
B549A405DA0AA2AA54F80211D5EA4059606AEA29D5FC0C171EAE0E242108EE24
250C42CA24EE480C1111A40A2A61042A2A6942A22A2A42480C171DE40E2EE104
EE2EE902E22A2E4E480C1119A4022AA104222AA942A22A2A42480C117EA402EA
210822EA250CAECEEA4E9A09119830AE46A4E00E6EA2D08DDDD780A1B5500A2A
AA51001AAA651445441680A15D530EEEAA7D00D6AAE518CDD51680A115520A2A
AA69409AAAA51054449680A1159B0AEA6A4E20EAEE2D0C4CDD48A0B175470790
6EAEE042D0C5D50C4D42580B12D6101B0AAA420A65144540455D2580B1255707
F06AA4E0EE51C5D50C4DC3580B1254101D0AAA420AA514454045553580B12547
0790AEE4E0A2D04CDD1CC55A6C0B11596042EEE0415962075A12A2D81580A115
BA0A2A240215BA421DA22A655680A155FA0E2AE40255FA407DB2AAE59680B1B5
DA0A2A2402B5DA4215B26BA511580A115960AEE240415962015A12A2DCBA0402
1777C904051512C904071572C904051512C90405771ADD0C1379CEA042E04321
718B2D0CC52BEA480C151B24A0A2402551229865145CA84A480C157F4440E240
2571228BE514DD3944480C151D8440A24025512298A514543A44480C13796440
AE40435721882D0CC5A9449A091217D5DC1CDC54073766537021778091512945
50445D6055111551051278091712945D1CD45507372253707127809151294550
445540151445510512780915729CDC144D54015733757057A9A0F02960EE2ABB
19BA93190E05BA0426BA8A29AA290F07FA04EAABB939A93190E05DA0422A88A2
9AA290F059604E2A8BA29BAB0B01909"
HELP.2
"E4A20DF50004000380001A0C139D15D4270A9CE429D50C42CA24EE480C155805
5DA009A24A654842A22A2A42480C15988C5DB609A44EE5C902E22A2E4E480C15
194455B409A84AA54842A22A2A42480C13D844D4270A964A29D50CAECEEA4E8A
0D789CE429D184A18A39929389BB8EE2100008A24A65404DA28A8AA6508A0982
26100008A44EE5C1CDB28BBBAE538939AEEE100008A84AA54045B28A8AAA528A
0729D22A100008964A29D145A18ABA929389398EE215A0218B8E024E82E29383
96CF801198A02A482A6508AAA2F80119AA02E442AE538BB64F80119DA02A422A
A5288AA8F802198E0EA42EE29388AA62FC0C15015960C2A309545A908948558C
D1480B15015BA026B28444DA29445445494580C12755FA02AA38445DB214C544
5C9C1480B150B5DA022A084C65B29445445494580C15015960C2A009545A9085
D9DD59C18A0618A3998A4302960C6ECC2A2DA80718A8AA8A5505BA02AA222A65
1980718BBBAAA7507FA026A44AAE51980718A8AADA6505DA02AA886BA5198071
8ABA98A4305960CAE662A2D4BC0D757170AAB8B0C5560737E64220942A330005
11509A8829845105551AA630BA6B80000771709BB8318C520735D6EA20FEAA31
000511109A8809845401559AA22820DA2A0200057710AABB8084530157EAA2A0
9A2AB16A0B1821C9CC5ABA3BC046E0E6ECD8446580B18614555C29A8820AA20A
AA245D61580B18E1CDDCD39B3940E6E0E6AADC552580B18A14455439A0A80AA2
02AA255544580B1821445D529AB960AAE02AEC555438A0D73988B18920BB993B
BB4352701D5A2000088A88828A288AAA88AA55DA00B5CA2000088B88B281188A
9939BA75DB605DDB2000088A888282188AAA0A8A655B4040154B2480C1BABBB1
8110BBAAB98B4352701D5A36A0D7BABCE00BB38B017032077301DDD46000088A
A2208801888A002501550B58451000088BA2E009318B8B6025075305D9C41000
088AA2200A01888A40250155014058451480C1BABCE2893188B27072017501D9
4565A0608BABBA3A90608A29A21A90608A29B21A90608A29821A90608B39835C
D05CEE"
HELP.3
"E4A20032000400038000DE0019A4EAB40737E64223F80018AAA4AA505551AA6B
090118BAE4AA70735D6EA21F8011829A4AA601559AA222F8011829A4AB40157E
AA2A1DF0106AF9010AAF901064F9010A4F901064FF0D08B9C042DCD8D52390D0
88A20A655454D2390D08B920EE5DD84D3390D088A20AA5541553390D08BAC0A2
DC5DC52FF0FF0FF0E100003B9BB40671DDC9957906EAEA476580B1888A885015
B5554445B0AAA4A511680A1989BB70155DDC9845F06AA4A772680A1A8A886015
15450155D0AAA4A614580B181BABB4067154DDC4790AEE4A4738F0106AF9010A
AF901064F9010A4F901064FF0C00E6A403359ECE590B02AA20555B422590B0E6
A10332F44E590B02AA20552D482590B0EAA40352946EFF0FF0B90616B"
STMENU
"E4A202940004000380000183081000200E00201090E044001000200110229031
40E01E877001D3781EC3D803183111150200154201154E80214F11F502001542
01154D803144101140A001D3A01154D803183E83E87400E40483E44990004490
F9F0074C0C144001040280F0060044044400010E480D74400004024111040044
04400001011000044E81EC3741193400820446C3E101C2F0045111154280F044
0001F5544411014511045F111542451974008204544B44110145110C6101E54A
42154400440C6444110155F0044E83054485F87E0044044E44E10E44168000E8
900015C0B0C76001800C36590B0404001800444590E040483FC1044483F290F0
C34441900C340411190F04044419004048711190F04048719204044411190F04
0E04111040E871149010830E0E044400010E810012290E044000010111082229
0E0446C3E10111E807290E045444110F111D12290E0454441101111902290E0C
6444110111190A290E044E44E10193E8048F0E0C1000080000E8126803011067
80E0420000800001112680301104780E044EC3ED11101117680501934C3580E0
44154180110F11268050F54444580E044F54E801101112680501D7444580E042
144092E10111A680501504C3580E0C1E44F01010193468040193E4E8000E0900
04AC0A0C1400200114A8040E0048680A042000204114A804011008680D044687
702197F83780501546C1580D04440201F541547804015448680D04448328015
41547804055448680D042404A4015419778050944482580D0C1EC34001971147
8050697E011901083FF0DB04D19"
WBMENU
"E4A20302000400038000D083081000200E015801048B80C04400100020011680
10A8B806140E01E87700191D97D932C1A805183111150200F1134030478C8041
4F11F5020011114018728B806144101140A00111140144282A806183E83E8740
0193187187201CA0F9F0074C01083880304C7E29010448804060411190F040E8
7ED3E0040201190E040150144010401C290E040F93E44E104802290E04410405
41104801290F083EC3F44E10E80F1FF0FF0FF0FF0FF0FF0FF0FF0FF0480C0830
140C108108490C04401405200108490E044E97844E01EC1E290F0C7154444111
19011190F044154244F11F90F1190E0441541421011821290E044E970C1E83E0
1EFF0DC071C0"
CURSOR
"E1B20F900090000D3000FFFFFFFFFFFFFFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFF
FFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFF
FFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFFFFF11664"
UNITMENU
{ { "lb" "_lb" } { "kg" "_kg" } { "in" "_in" } { "cm" "_cm" } { "Gal"
"_Gal" } { "L" "_L" } }
PLMENU
{ "Cessna " "Mooney " "PA-" }
DESCMENU
{ "Empty" "Oil" "Fuel Quantity/" "Pilot" "Front " "Rear " "Passenger"
"Baggage" }
Gal
'6_lb'
L
'1.584_lb'
CST
{ '1_Gal' '1_lb' "" "" '1_kg' '1_L' }
END